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BASIC 


La 
instrucción 
GOTO 


AS instrucciones de 
los programas que 
hemos visto hasta 
ahora se ejecutaban 
siempre según el or- 
den creciente del nú- 
mero de línea. Sin 
embargo, este orden 
se puede alterar utilizando la instrucción 
GOTO, que posibilita la transferencia del 
control de ejecución a cualquier otra lí- 
nea del programa, anterior o posterior. El 
formato general es el siguiente: 


GOTO <número de línea > 
La instrucción GOTO realiza un salto in- 
condicional al número de linea indicado. 


El programa 1 es un ejemplo del funcio- 
namiento de GOTO. 


REM OAXEXEXHAHRAA LEAR 
20 REM * CASTIGO AL ORDENADOR * 
30 REM AXAXHXKHXXHACELEL ALA ERA AR 
40 CLS 

50 PRINT "VACA SE ESCRIBE CON Y" 
GOTO 50 


En el programa hemos formado lo que 
se denomina un bucle infinito, es decir, 
un conjunto de instrucciones que se repi- 
te infinitas veces. En este caso el bucle in- 
finito se está formando por las líneas 50 y 
60. Esto hace que la cadena VACA SE ES- 
CRIBE CON V se vaya imprimiendo en 
cada una de las líneas de la pantalla. 
Cuando la pantalla se complete, las fra- 
ses irán desapareciendo por la parte su- 


perior para poder seguir imprimiendo en 
las líneas inferiores indefinidamente. 

Evidentemente, cuando un programa 
tiene un bucle infinito, la ejecución no se 
detiene de forma espontánea. Para po- 
der detener la ejecución de un bucle de 
este tipo normalmente tendremos que 
pulsar una o dos teclas, dependiendo 
del tipo de ordenador. En la figura 1 po- 
demos ver las teclas usadas en las má- 
quinas en estudio. 


ES 


CTRL + BREAK 
CTRL + STOP 
BREAK 


SPECTRUM 


Teclas que detienen la ejecución de un 
bucle infinito. 


Por lo general, un bucle infinito no sue- 
le tener mucho sentido; por tanto, deben 
evitarse en los programas, puesto que no 
conducen a nada. Sin embargo, pueden 
utilizarse en programas muy especiales, 
como, por ejemplo, la transformación del 
teclado del ordenador en un teclado 
musical. 

Esto no significa que la instrucción 
GOTO sea de poca utilidad, todo lo con- 
trario, podemos usarla en gran cantidad 
de programas, como veremos a conti- 
nuación. 


O Los bucles condicionales 


Podemos combinar la instrucción 
GOTO con la instrucción IF-THEN de modo 


que consigamos saltos condicionales, es 
decir, los bucles formados ya no serán in- 
finitos, sino que dependerán de una con- 
dición. Esto dará gran versatilidad a 
nuestros programas. 

Analicemos la estructura de la figura 2, 
que formará parte de muchos progra- 
mas. 


10 LET C=0 
20 LET C=C+1 


60 IF C<5 THEN GOTO 20 


Esqueleto básico de un bucle 
condicional. 


En la línea 10 se asigna un valor inicial 
a la variable C que va a actuar como 
contador del número de veces que se va 
a repetir el bucle. Si el valor inicial es O, 
como en este caso, se puede prescindir 
de la línea en todos los ordenadores, ex- 
cepto en el SPECTRUM. 

En la línea 20 se efectúa el incremento 
del contador. En este caso se trata de 
contar de uno en uno; por tanto, se suma 


40 CLS 
50 LET C=0 
60 LET C=C+1 


Al ejecutarlo podemos observar que la 
cadena de la línea 70 se imprime en 
pantalla 15 veces, tal y como está esta- 
blecido en la condición de la línea 80. 

Veamos otro ejemplo más práctico. El 
programa 3 utiliza un bucle para imprimir 
en pantalla los números naturales, sus 
cuadrados y sus cubos del intervalo que 
deseemos. 


10 REM RX LEAR 
20 REM * TABLA NUMERICA  x 
30 REM AHHH RR 
40 CLS 


REM AEXXXLLELELERE LAA RARE 
20 REM *x EJEMPLO DE CONTADOR  x 
30 REM XXEXXXEXERALA AREA ERA 


70 PRINT "ESTE MENSAJE SE REPITE 15 VECES" 
IF C<15 THEN GOTO 40 


1 al contenido de la variable C y el resul- 
tado se vuelve a almacenar en C, borrán- 
dose el antiguo contenido. Por ello la ins- 
trucción de la línea 20 podría traducirse 
como «Guarda en la variable C lo que 
había antes más 1». Lógicamente, si inte- 
resara un incremento distinto de 1 se po- 
dría utilizar también incluso valores nega- 
tivos, que darían lugar a decrementos. 
Por ejemplo: 


20 LET C=C+5 


contaría de cinco en cinco y 
20 LET C=C-1 


contaría de uno en uno, pero hacia atrás. 


Finalmente, todas las líneas comprendi- 
das entre la 20 y la 60 constituirán el 
cuerpo del bucle y se repetirán tantas 
veces como indique la línea 60, donde 
se encuentra la condición de finalización 
del bucle: sólo si el valor de C es menor 
que 5, el control volverá a la línea 20. Si 
no se cumple esta condición, la ejecu- 
ción del programa pasará a la línea si- 
guiente, si existe, y si no, se detendrá de- 
finitivamente. 

En el programa podemos ver un ejem- 
plo concreto: 


50 INPUT "TECLEE EL NUMERO INICIAL "¿NI 

60 INPUT "TECLEE EL NUMERO FINAL "¿NF 

70 CLS 

380 IF NI>NF THEN PRINT "TECLEE PRIMERO 
EL MENOR" :GOTO 50 

90 PRINT "NUMERO" ¿TAB(12);"CUADRADO"; 
TAB(24);"CUBO" 

100 PRINT " 
TAB(24);" 

110 PRINT 

120 LET C=NI 

130 PRINT C;¡TAB(12);CXC;TABC24),0"3 

140 LET C=C+1 

150 IF C<=NF THEN GOTO 130 


-+TABC12)5" y 
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La condición de la línea 80 no permite 
que el número inicial sea mayor que el fi- 
nal; por tanto, si tecleamos los números 
al contrario aparecerá en pantalla un 
mensaje de aviso y volverá a pedirnos los 
dos números. Las líneas 90 y 100 se en- 
cargan de imprimir en la parte superior 
de la pantalla un encabezamiento 
correcto. En la línea 120 se asigna el va- 
lor inicial al contador, que, lógicamente, 
coincide con el valor inicial que hemos 
tecleado. Finalmente las líneas 130 a 150 
constituyen el bucle que se repetirá has- 
ta que el contador alcance el número fi- 
nal tecleado. En este caso hemos inverti- 
do el orden de las líneas, es decir, prime- 
ro se realiza la impresión en pantalla y 
después se incrementa el contador. 

En la figura 3 podemos ver la presenta- 
ción en pantalla tras una posible ejecu- 
ción. 


Cuadrado 


Número 
5 


lA | Presentación en pantalla del programa 3. 


En la figura 4 se resumen las caracterís- 
ticas generales de estos bucles condi- 
cionales. 


Su utilización permite realizar de 


forma repetida una serie de accio- 
nes. 


2. Son estructuras perfectamente de- 
limitadas: 
e Cuentan siempre con una prime- 
ra orden que señala su comien- 
ZO. 


e Y con otra, que se puede deno- 
minar de cierre, que señala el fi- 
nal del bucle. 

3. La forma más sencilla de un bucle 
con IF-THEN responde al esquema: 
Aumento del contador: Instrucción 
de comienzo. 

IF-THEN: Instrucción de cierre: Se 

comprueba el contador. 

4. Todas las instrucciones incluidas 
entre las de comienzo y cierre se- 
rán las que se ejecuten repetidas 
veces. 

5. El número de veces que se realice 
el bucle se especifica en la condi- 
ción final IF-THEN, donde se com- 
prueba si el contador ha alcanza- 
do ya el valor máximo que limita el 
número de vueltas que se darían. 


A Características generales de los bucles 
condicionales. 


Vamos a ver ahora un ejemplo algo di- 
ferente. El programa 4 nos permite hallar 
la media aritmética de una serie de da- 
tos numéricos. En este caso concreto cal- 
cula la edad media de un conjunto de 
personas. Este programa podríamos de- 
sarrollarlo con un contador y un bucle 
condicional si conociéramos de antema- 
no el número de datos que vamos a in- 
troducir. Sin embargo, vamos a suponer 
que no conocemos este número; por tan- 
to, utilizaremos un bucle del que sólo po- 
dremos salir al teclear un dato ficticio, 1. 
De todas formas, usaremos un contador 
para saber cuántos datos hemos introdu- 
cido. 


REM AXRHEFFIRILERAAIEERE 
REM * MEDIA DE DATOS + 
REM XFX 
ELS 
LET C=0:LET S=0 
INPUT "TECLEA LA EDAD (¿-1 PARA TERMI 
NAR> "¡E 
CLS 
IF E=-1 THEN GOTO 130 
IF Et*=0 OR E>100 THEN PRINT "EDAD NO 
VALIDA" :GOTO 40 
LET C=C+1 
LET S=S+E 
GOTO 40 
LET M=S/C 


PRINT "NUMERO DE DATOS: ";¿TAB(20>;C 
PRINT :¿PRINT 
PRINT "MEDIA ARITMETICA: "¡TABC203¿MÍ 


En la línea 50 asignamos el valor 0 a 
dos variables: C y $. La variable C actua- 
rá como contador, mientras que la varia- 
ble S funcionará como un acumulador, es 
decir, en esta variable se va a realizar la 
suma de todos los datos que tecleemos. 
La condición de la línea 80 comprueba 
si hemos tecleado el dato ficticio -1, en 
cuyo caso la ejecución saldrá del bucle, 
transfiriéndose el control a la línea 120, 
donde se calcula la media para, a con- 
tinuación, imprimir en pantalla los resul- 
tados (líneas 140 a 160). La condición de 
la línea 90 sirve para comprobar que no 
hemos tecleado una edad absurda (es 
imposible tener menos de 0 años y muy 
difícil superar los 100). En la línea 100 se 
incrementa el contador y en la 110 se 
suma la edad tecleada al acumulador; 
de este modo al salir del bucle tendre- 
mos todas las edades sumadas en la va- 


riable S, y podremos dividirla por C (nú- 
mero de datos) para calcular la media. 

En la figura 5 podemos ver el resultado 
de una posible ejecución. 


NUMERO DE DATOS: 10 


MEDIA ARITMETICA: 42,5 
oK 


lA Presentación en pantalla del programa 4. 


Referencias 
explícitas 
a la memoria 


N el tomo 4 se trató 
de las referencias a 
la memoria y se dijo 
que la dirección físi- 
ca (20 bits) de una 
posición de memoria 
se obtienen sumando 
los contenidos de un 
«registro de segmento» (16 bits) y un «re- 
gistro de desplazamiento» (16 bits), pero 
desplazando 4 bits a la izquierda el «re- 
gistro de segmento» antes de la suma. 

El 8088 accede a las áreas de código, 
datos origen, datos destino y pila de eje- 
cución, utilizando implícitamente las pa- 
rejas de registros CS:IP, DS:Sl, ES:Dl y SS:SP. 
Por esta razón, instrucciones como 
LODSW, STOSW y RET no llevan operandos 
en los que se especifique la memoria a 
utilizar, ya que por definición acceden a 
las áreas de datos origen, datos destino 
y pila, respectivamente, sin posibilidad 
de otra alternativa. 

Iindependientemente de esto, en mu- 
chas instrucciones ejecutables uno de 
los operandos (pero nunca los dos) pue- 
de hacer referencia explícita a un byte o 
una palabra de memoria. En estas refe- 
rencias, la dirección fisica de la memo- 
ria referenciada (20 bits) se obtiene por 
el mismo procedimiento a partir de un 
«registro de segmento» (16 bits) y un 
«desplazamiento» (16 bits). En cada sen- 
tencia se pueden especificar estos com- 
ponentes, cosa que no ocurre en las re- 
ferencias implícitas. 

En resumen, en las instrucciones que 
hacen referencias explícitas a la memo- 
ria hay que definir: 
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— El «desplazamiento». 


— El «registro de segmento» (opcio- 
nal). 


— La longitud de la unidad de memo- 
ria referenciada (opcional). Es decir, hay 
que definir si se trata de una palabra o 
de un byte. 

El desplazamiento se puede definir uti- 
lizando constantes, etiquetas, registros 
base (BX o BP) y registros índice (Sl o DI) 
combinados de muy variadas formas. A 
la hora de codificar las instrucciones se 
deben tener en cuenta las siguientes re- 
glas sintácticas: 


— Los registros deben ir entre corche- 
tes (ejemplo: (Sl)). 

— Si se utilizan dos registros, ambos 
pueden ir en diferentes corchetes (ejem- 
plo: (BX) (DI) o encerrarse en los mismos 
separados por el signo más (ejemplo 
(BX+D1)). 

— Las etiquetas deben ir fuera de cor- 
chetes (ejemplo: LISTA). 

— Las constantes deben ir entre cor- 
chetes si van solas (ejemplo (8)) y pue- 
den ir fuera de corchetes si van acompa- 
ñadas (ejemplo (BP)+8). 

En las referencias explícitas a la memo- 
ria se puede definir el registro de seg- 
mento que se desee utilizar. Para ello 
basta con escribir uno de los cuatro po- 
sibles «registros de segmento» (DS, ES, CS 
y SS), delante del desplazamiento, sepa- 
rando ambos componentes por dos pun- 
tos. Ejemplos: CS:LISTA O ES:(BP+SI)+4. 

En caso de no especificarse, se utiliza 
un «registro de segmento» elegido de 
acuerdo con las siguientes reglas: 

1. Sien el desplazamiento intervienen 
los registros BX, Sl o Dl, se toma por omi- 
sión el registro DS. 

2. Si en el desplazamiento interviene 
el registro BP, se toma por omisión el re- 
gistro SS. 


3. En caso de utilizar una etiqueta, se 
toma por omisión el registro que en la 
sentencia ASSUME se haya asociado al 
segmento al que pertenece la etiqueta. 

Las reglas se aplican en el orden defi- 
nido, de modo que, en caso de que pue- 
dan aplicarse dos o más reglas contra- 
dictorias, prevalecen las últimas sobre 
las primeras. 

Por último, también se puede definir en 
la instrucción la longitud de la unidad de 
memoria referenciada. Para ello, hay 
que anteponer las palabras WORD PTR si 
se desea hacer referencia a una palabra 
y BYTE PTR si se desea hacer referencia a 
un byte. Ejemplos: WORD PTR LISTA o BYTE 
PTR CS:LISTA (SI)(BP)+4. 

La especificación de longitud es obli- 
gatoria sólo en los casos en los que di- 
cha longitud no se pueda deducir del 
contexto. Si la etiqueta LISTA se define 
como «palabra» (word), no es necesario 
usar WORD PTR en las referencias en las 
que aparezca dicha etiqueta. 


a Tipos de direccionamiento 
== de la memoria 


Las diferentes formas de referenciar ex- 
plícitamente la memoria que acabamos 
de ver, dan lugar a los siguientes tipos de 
direccionamiento: 

— Direccionamiento directo. En el que 
se especifica una etiqueta, seguida op- 
cionalmente de una constante que se 
suma o resta a la misma. Por ejemplo, si 
se ha definido la etiqueta LISTA, se pue- 
den escribir instucciones que conten- 
gan como operando expresiones de los 
siguientes tipos: 


(20) 

LISTA 

LISTA (20) o LISTA+20 
LISTA (-7) o LISTA-7 


— Direccionamiento indirecto por me- 
dio de un registro base. En el que se es- 
pecifica el registro BX o el registro BP 
(que son los que pueden actuar como re- 
gistros base) y una constante opcional 
aditiva o sustractiva. Ejemplos: 


(BX) 
(BP)+4 
(BX)-32 


Direccionamiento indirecto por medio 
de un registro índice. En el que se espe- 
cifica el registro Sl o el registro Dl (que son 
los que pueden actuar como registros ín- 
dices) y opcionalmente una constante 
aditiva o sustractiva. Ejemplos: 


(SI) 
(SI)+9 
(Di)-17 


Direccionamiento indirecto utilizando 
un registro base y un registro índice. En el 
que se especifica uno de los dos regis- 
tros base y uno de los dos registros índi- 
ce, seguidos opcionalmente por una 
constante aditiva o sustractiva. Ejemplos: 


(SI+BP) o (SI) (BP) 
(BX+SI)+9 O (BX) (SI)+9 
(BP+DI)-17 o (BP) (DI)-17 


| a La instrucción MOV 


Esta es una de las sentencias básicas 
del ensamblador y por ello va a ser la pri- 
mera sentencia ejecutable que vamos a 
describir con detalle. Mediante esta sen- 
tencia se puede copiar un byte o una pa- 
labra desde un «origen» a un «destino». 

El formato de la sentencia MOV es el si- 
guiente: 


[eti quetal MOV 


destino, origen 


Donde la etiqueta es opcional como 
en todas las sentencias ejecutables. 
MOV es el código de operación. Y «ori- 
gen» y «destino» son los dos operandos 
asociados a esta sentencia. Estos ope- 
randos pueden ser: datos inmediatos, re- 
gistros, registros de segmento y referen- 
cias explícitas a la memoria. 

Se denominan «datos inmediatos» u 
«Operandos inmediatos» a las constantes 
que aparecen escritas directamente en 
la sentencia y que representan el valor 
que se quiere copiar al destino. 

Todos los registros pueden ser «origen» 
y «destino» de la instrucción MOV (ex- 
cepto el CS que no puede ser destino). A 
la hora de analizar las combinaciones 
posibles se separan los registros de seg- 
mento (DS, ES, SS y CS) de todos los de- 
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más, porque presentan algunas restric- utilicen como origen y como destino, hay 
ciones. nueve combinaciones válidas y siete in- 

De las 16 combinaciones que pueden válidas que se resumen en la siguiente 
surgir cuando estos cuatro conceptos se tabla: 


a dato inmediato 
a registro 


a registro de segmento 


D 
E 
Ss 
T 
I 
N 
O 


de dato inmediato 
registro 
registro de segmento —— 


memoria 


A continuación se dan ejemplos de to- de las formas de referenciar explícita- 
dos los tipos de instrucciones MOV, don- mente la memoria que se han visto al 
de por simplicidad se ha utilizado la pa- principio de este tema. 
labra MEMORIA para expresar cualquiera 


a a registro 
registro de segmento (1) 
de dato inmediato 


de registro de palabra MOV AX,BX 
AX,BX,CX,DX,SI,DI,BP,SP MOV CX,DX MOV SS,DX 


de registro de byte 
AH, AL, BH, BL, CH, CL, DH, DL 


de registro de segmento 
DS, ES, 8S, CS 


(1) Excepción: El registro de segmento CS no se puede usar como "destino". 


Se incluye, por último, el listado del sino utilizar la mayor variedad posible de 
programa PROG3, que copia un mensaje ejemplos de instrucciones MOV. 
desde un área de datos al buffer de pan- En un comentario se recuerda que la 
talla. El programa no pretende usar el dirección del buffer de pantalla debe 
método más eficaz de realizar esta tarea, cambiarse para que funcione con la 
pantalla de color. 


NAME PROGB3 


DATOS SEGMENT 


5 
MENSAJE DB >? ABCDEFGHIJKLM” 
DB ” NOPQRSTUVWXYZS” 


; 
DATOS ENDS 
5 ¡qx _ _ _—_ _ __ —_ — —_— __  n—_—_— _— —— —_———— — — —— — ——— 
CODIGO SEGMENT 
NOMBRE 1 PROC FAR 
; 
ASSUME CS:CODIGO,ES: DATOS 
5 
PUSH DS 
MOV AX, 0000 
PUSH AX 


MOV AX, DATOS 
MOV ES, AX 


MOV AX, OBOOOH 
MOV DS, AX 


AH, OF1H 


MOV 
MOV BP, 500H 
MOV 


BX,0O 


3 

ETIQUETA1: MOV AL,ES:MENSAJE [BXIJ 
INC BX 

3 
CcmP AL,” $?” 
JE ETIQUETA2 


MOV DS: [BP], AX 


BP,2 


3 
NOMBRE 1 ENDP 


CODIGO ENDS 
. END 


Programa PROG3 
Comienzo del segmento DATOS 


Definición de la etiqueta MENSAJE 
con datos literales. 


Fin del segmento DATOS 


Comienzo del segmento CODIGO 


5 
Comienzo del procedimiento NOMBRE i 


Registros de segmentos asumidos. 
Prepara en la pila 

la dirección 

de terminación. 


Carga el registro de segmento ES con 
la dirección del segmento de datos. 


OBBOOH (Para pantalla de color) 
Carga el registro de segmento DS con 
la dirección del buffer de pantalla. 
Atributo del mensaje en la pantalla. 
Posición inicial sobre la pantalla. 
Valor inicial del registre que se 
utilizará para referenciar los 


cracteres del mensaje. 


Copia caracter del mensaje en AL 
Incrementa el contador de caracteres 


Comprueba si es el último caracter 


5 
de MENSAJE para salir del bucle. 


Copia sobre el buffer de pantalla 
el caracter (AL) y el atributo (AH). 


Suma 2 al contador del buffer de 
pantalla. (porque cada caracter 

va acompañado de un atributo). 
Vuelve a repetir el proceso 
Etiqueta de la sentencia siguiente. 
Recupera de la pila la dirección 
de terminación. 


Fin del único procedimiento. 


Fin del segmento CODIGO 
Fin del programa 


ma Programa: 
U Diseñador de 
laberintos 


STE programa nos per- 
mitirá crear nuestros 
propios laberintos de 
forma que los poda- 
mos utilizar en cual- 
quiera de los progra- 
mas que nosotros ha- 
gamos. Lo único que 
hay que darle al programa es la anchura 
y la altura que queramos que tenga el la- 
berinto. el resto lo hará el ordenador. To- 
dos los laberintos tendrán solución. Esto 
es, todos los laberintos tendrán una entra- 
da y una salida. 


El programa se realizó en un IBM pc, 
pero puede ser ejecutado en cualquier 
ordenador que disponga de GWBASIC. 


AGO OOOO OOO ok 


*k LABERINTOS * 
ETE 


PROGRAMAS 


EDUCATIVOS + DE UTILIDAD + DE GESTIÓN + DE JUEGOS 


ESPERA UN MOMENTO 


QUIERES OTRO LABERINTO (S/N) 


LA, Ejemplo de un laberinto realizado por el 
programa «diseñador de laberintos». 


Para los ordenadores AMSTRAD, COMMO- 
DORE y MSX se proponen las siguientes 
modificaciones. 


(c) EDICIONES SIGLO CULTURAL 


(c) 1987 


+ ¡LL -A BD E-R-IN TO 


" Este programa nos permitira" 
“crear laberintos de distintas" 
"dimensiones y siempre con" 


“solucion. " 


II6O":PRINT> >" 
1170 PRINT 


Para ello, solo tenemos que” 
"dar el ancho y el largo que" 


1180 PRINT "queremos que tenga el laberinto. " 
1190 PRINT 

1200 PRINT "PULSA UNA TECLA PARA EJEMPLOS" 
1210 LET A$S-INKEYS$ 

1220 IF A$="" THEN GOTO 1210 

1230 CLS 

1240 PRINT "LABERINTO DE 3x3" 

1250 PRINT "---=----=-=--=--- a 

1260 PRINT:PRINT:PRINT 

T27/QUEBTL=S 

1220 LET A=3 

290 GOSUB 2000 

1300 GOSUB 4000 

1310 PRINT 

1320 PRINT "PULSA UNA TECLA PARA VER MAS" 
1330 LET A$=INKEY3 

1340 IF A$="" THEN GOTO 1330 

1350*CLS 

1360 PRINT "LABERINTO DE 109x6" 

1370 PRINT "---==--=-===o.--- y 

1380 PRINT:PRINT:PRINT 

1390 CLEAR 

1400 LET L=10 

1410 LET A=8 

1420 GOSUB 2060 

1430 GOSUB 4000 

1440 PRINT 

1450 PRINT "PULSA UNA TECLA" 

1460 LET A$=INKEY$ 


1470 IF A$="" THEN GOTO 1460 
1480 CLS 


1490 PRINT "Dime el tamano de un laberinto" 
1500 CLEAR 
1510 PRINT:PRINT 


1520 INPUT "ANCHO = ";L 
1530 PRINT:PRINT 
1540 INPUT "LARGO = ";A 


1550 CLS 

1560 PRINT "ESPERA UN MOMENTO” 
1570 PRINT:PRINT 

1580 GOSUB 2000 

1590 GOSUB 4000 

1600 PRINT:PRINT 

1610 PRINT "QUIERES OTRO LABERINTO (S/N) 
1620 LET A$=INKEY$ 

1630 IF A$="" THEN GOTO 1620 
1640 IF A$="S" OR A$="s" THEN GOTO 1480 
1650 IF A$="N" OR A$="n"” THEN CLS:END 
1660 GOTO 1620 

2000 REM 

2010 REM ARSS POSI lSlolOIdlOlolOJoJOK 
2020 REM * PROGRAMA PRINCIPAL x* 
2030 REM dado Sola ojo ldolajok ok 
2040 REM 

2050 RANDOMIZE TIMER 

2060 DIM A(L,A):DIM B(L,A) 

2070 LET Q=-0 

2080 LET Z=0 

2090 LET M=INT(RND*xL+1):LET X=M 
2100 LET C=1 

2110 LET A(X,1)=C 

2120 LET C=C+1 

2130 LET R=X 

2140 LET S-1 

2150 GOTO 2260 

2160 IF R<>L THEN GOTO 2240 
2170 IF S5<>A THEN GOTO 2210 
2180 LET R=1 

2190 LET S=1 


1 PROGRAMAS 


2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 

2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 


GOTO 2250 
LET R-1 

LET S=S+1 
GOTO 2250 
LET R=R+1 
IF 
IF 
IF 
IF 
IF 


R-1=0 THEN GOTO 2620 

A(R-1,5)<>0 THEN GOTO 
S-1=0 THEN GOTO 2430 

A(R,S-1)<>0 THEN GOTO 
IF R=L THEN GOTO 2340 

IF A(R+1,S5)<>0 THEN GOTO 
LET X=INT(RND*x3+1) 


ON X GOTO 3000, 3070, 3140 


IF S<>A THEN GOTO 2380 
IF Z=1 THEN GOTO 2410 
LET C=1 

GOTO 2390 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RND*3+1) 

ON X GOTO 3000, 3070,3230 
LET X=INT(RND*2+1) 

ON X GOTO 3000, 3070 

IF R=L THEN GOTO 2540 

IF A(R+1,S)<>0 THEN GOTO 
IF S<>A THEN GOTO 2490 
IF Z=1 THEN GOTO 2520 
LET Q=1 

GOTO 2500 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RND*x3+1) 

ON X GOTO 3000, 3140, 3230 
LET X=INT(RNDx*2+1) 

ON X GOTO 3000, 3140 

IF S<>A THEN GOTO 2580 
IF Z=1 THEN GOTO 2610 
LET Q=1 

GOTO 2590 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RNDx*2+1) 

ON X GOTO 3000, 3230 

GOTO 3000 

IF S-1=0 THEN GOTO 2830 
IF A(R,S-1)<>0 THEN GOTO 
IF R=L THEN GOTO 2750 

IF A(R+1,5)<>0 THEN GOTO 
IF S<>A THEN GOTO 2700 
IF Z=1 THEN GOTO 2730 
LET Q=1 

GOTO 2710 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RND*3+1) 

ON X GOTO 3070,3140, 3230 
LET X=INT(RND*2+1) 

ON X GOTO 3070, 3140 

IF S<>A THEN GOTO 2790 
IF Z=1 THEN GOTO 2820 
LET Q=1 

GOTO 2800 

IF A(R,S+1)<>0 THEN GOTO 
LET X=INT(RND*2+1) 

ON X GOTO 3070,3230 

GOTO 3070 

IF R=L THEN GOTO 2930 

IF A(R+1,5)<>0 THEN GOTO 
IF S<>A THEN GOTO 2890 
IF Z=1 THEN GOTO 2920 
LET Q=1 

GOTO 3080 


A(R,S)=0 THEN GOTO 2160 


2620 


2430 


2340 


2410 


2540 


2520 


2610 


2830 


2750 


2730 


2930 


2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
33920 
3400 
3410 
3420 
3430 
4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 


IF A(R,S+1)<>0 THEN GOTO 2920 
LET X=INT(RND*2+1) 
ON X GOTO 3140, 3230 
GOTO 3140 
IF S<>A THEN GOTO 2970 
IF Z=1 THEN GOTO 2990 
LET Q=1 
GOTO 2980 
IF A(R,3+1)<>0 THEN GOTO 2990 
GOTO 3230 
GOTO 3430 
LET A(R-1,S)=C 
LET C=C+1 
LET B(R-1,S)=2 
LET R=R-1 
IF C=L*A+1 THEN RETURN 
LET Q=0 
GOTO 2260 
LET A(R,S-1)=C 
LET C=C+1 
LET B(R,S-1)=1 
LET S=S-1 
JF C=L*A+1 THEN RETURN 
LET Q=0 
GOTO 2260 
LET A(R+1,5)=C 
LET C=C+1 
IF B(R,3)=0 THEN GOTO 3190 
LET B(R,S)=3 
GOTO 3200 
LET B(R,S)=2 
LET R=R+1 
IF C=L*A+1 THEN RETURN 
GOTO 2620 
IF Q=1 THEN GOTO 3330 
LET A(R,S+1)=C 
LET C=C+1 
IF B(R,3)=0 THEN GOTO 3290 
LET B(R,S)=3 
GOTO 3300 
LET B(R,S)=1 
LET S-S+1 
IF C=L*A+1 THEN RETURN 
GOTO 2260 
LET Z=1 
IF B(R,3)=0 THEN GOTO 3380 
LET B(R,S)=3 
LET Q=0 
GOTO 3430 
LET B(R,S)=1 
LET Q=0 
LET R=1 
LET S=1 
GOTO 2250 
GOTO 2160 
REM 
REM dada SOS SOS OSOS olSlollEOOlOK 
REM * IMPRESION DEL LABERINTO * 
REM AMOSSSS SOS SlOlSSlS”lS ESOO OK 
REM 
FOR I=1 TO L 
IF I=M THEN GOTO 4090 
PRINT CHR$(219);CHR$(219); 
GOTO 4100 
PRINT CHR$(219);" "; 
NEXT 1 
PRINT CHR$(219) 
FOR J=1 TO A 
PRINT CHR$(219); 
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4140 FOR I=1 TO L 


4150 IF B(1,J)<2 THEN GOTO 4180 
4160 PRINT " 

4170 GOTO 4190 

4180 -—PRINT >" ";CHRS(219); 


4190 NEXT I 
4200 PRINT 
4210 FOR I=1 TO L 


4220 IF B(1,J)=0 THEN GOTO 4260 
4230 IF B(I,J)=2 THEN GOTO 4260 
4240 PRINT CHR$(219);" ” 

4250 GOTO 4270 

4260 PRINT CHR$1219);CHR$(219); 


4270 NEXT I 

4280 ** PRINT CHR$(219) 
4290 NEXT J 

4300 RETURN 


COMMODORE: 2320 LET X=INT (RND (1)'3+1) 


2390 LET X=INT (RND (1)3+1) 
1070 PRINT CHR$ (147) 2410 LET X=INT (RND (1)'2+1) 


1230 PRINT CHRS (147) 2500 LET X=INT (RND (1)"3+1) 
1330 GET A$ 2520 LET X=INT (RND (1)'2+1) 
1350 PRINT CHR$ (147) 2590 LET X=INT (RND (1)2+1) 
1460 GET AS 2710 LET X=INT (RND (1)3+1) 


2730 LET X=INT (RND (1)'2+1) 
2800 LET X=INT (RND (1)'2+1) 
2900 LET X=INT (RND (1)'2+1) 
4070 PRINT CHR$ (143): CHR$ (143); 


2000 LE NGN yt Lera AOPOPRN CRS L 


2390 LET X=INT (RND (1)'3+1) 4180 PRINT CHR$ * ”: CHR$ (143): 


2410 LET X=iNT (RND (1)'3+1) 4240 PRINT CHR$ (143): CHR$ (143); 
2500 LET X=INT (RND (1)'3+1) 4280 PRINT CHRÍ (143). 
2520 LET X=INT (RND (1)'2+1) 


2590 LET X=INT (RND (1)*2+1) 
2710 LET X=INT (RND (1)*3+1) 


1480 PRINT CHR$ (147) 
1550 PRINT CHR$ (147) 
1620 GET AS 

2050 LET F=RND (-TI) 


2730 LET X=INT (RND (1)'2+1) MSX: 

2800 LET X=INT (RND (1)'2+1) 

2900 LET X=INT (RND (1)'2+1) 2050 LET F=RND (-TIME) 

4070 PRINT CHR$ (166); CHR$S (166); 2090 LET M=INT (RND (1)'L+1): LET X=M 

4090 PRINT CHRS (166); “ ”; 2320 LET X=INT (RND (1)'3+1) 

4110 PRINT CHR$ (166) 2390 LET X=INT (RND (1)'3+1) 

4130 PRINT CHR$ (166); 2410 LET X=INT (RND (1)'2+1) 

4180 PRINT “ ”; CHRS (166); 2500 LET X=INT (RND (1)'3+1) 

4240 PRINT CHR$ (166); CHR$ (166); 2520 LET X=INT (RND (1)'2+1) 

4280 PRINT CHR$ (166) 2590 LET X=INT (RND (1)'2+1) 

2710 LET X=INT (RND (1)'3+1) 

AMSTRAD: 2730 LET X=INT (RND (1)'2+1) 

2050 RANDOMIZE TIME 2800 LET X=INT (RND (1)'2+1) 


2090 LET M=INT (RND (1)'L+1): LET X=M 2900 LET X=INT (RND (1)"2+1) 


ESPERA UN MOMENTO 


QUIERES OTRO LAFERINTO (S/N) 


lA | Un laberinto más largo que alto. 


Para que el programa nos cree un la- 
berinto sólo tenemos que asignarle a la 
variable L el valor de la longitud que que- 
remos que tenga el laberinto (ANCHO) y 
a la variable A el valor de la altura que 
queremos que tenga. Una vez hecho 
esto, hacemos un GOSUB a la línea 2000 
para que nos lo cree. Si queremos imprimir 
el laberinto sólo tenemos que hacer GO- 
SUB 4000 una vez que éste esté creado. 

Hay que tener cuidado de no darle 
unos valores muy altos de L y A para que 
el laberinto no se salga de la pantalla. 


ESPERA UN MOMENTO 


QUIERES OTRO LABERINTO (S/N) 


LA Un super laberinto. 


Programa Baby Fruits 


El siguiente programa, válido úni- 
camente para el SPECTRUM, nos permitirá 
jugar al conocido juego de las máquinas 
de los bares que dan premios en metáli- 
co. Este tipo de juegos es conocido 
como BABY FRUITS. No hace falta explicar 
nada sobre el mismo, ya que todos co- 
nocemos perfectamente su funciona- 
miento. 


1 DEF FN R()=1+INT (RNDx5) 


2 DEF FN P$(A$, Y, X)=CHR$ 22+CHR$ Y+CHR$ X+A$( TO 4)+CHR$ 22+CHR$ (Y+1)+CHR$ X 


+A$(5 TO ) 
10 INK 7: PAPER O: BORDER O: CLS 
20 GO SUB 1290 
30 REM DIBUJO DE LA PANTALLA 
40 PLOT 161,0 
50 DRAW 0,175 
60 BRIGHT 1 
70 PRINT AT 0,21; "QRQRQR" 
80 PRINT AT 1,21;"STSTST_1000" 
90 PRINT AT 2,21; INK 5;"IJIJIJ" 
100 PRINT AT 3,21; 
110 PRINT AT 4,21; 
120 PRINT AT 5,21; 
130 PRINT AT 6,21;"QR"; 
140 PRINT AT 7,21; 


INK 6; '"MNMNMN " 


INK 5;"IJIJ" 


INK 5;"KLKLKL"; INK 7;" 


INK 6;"OPOPOP"; INK 7;" 


750" 


500" 


"ST"; INK 5;"KLKL"; INK 7; 250" 
150 PRINT AT 8,21; INK 5;"IJIJ”; INK 7; "QR” 


160 PRINT AT 9,21; INK 5;"KLKL"; INK 7; E 250" 


170 PRINT AT 10,21;"QR" -QR”; INK 6;"MNMN" 
180 PRINT AT 11,21; “ST”; ; INK 6;"OPOP” 
190 PRINT AT 12,21; 
200 PRINT AT 13,21; INK 6;"OPOP" 


INK 7; 100" 
INK 6; "MNMN" ; INR 7;"QR" 
INK 7; “sr 100" 
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210 PRINT AT 14,21; INK 2;"EF"; INK 7;"ABAB” 

220 PRINT AT 15,21; INK 2;"GH"; INK 7;"CDCD 50” 
230 PRINT AT 16,21;"ABAB"; INK 2;"EF" 

240 PRINT AT 17,21;"CDCD";, INK 2;"GH"; INK 7;" 50" 
250 PRINT AT 18,21; INK 2;"EFEF"; INK 7;"--" 


2680: PRINT AT -19;21; INK 2; “GHGH";. INK 7;"-=-. 25" 
270 PRINT AT 20,21;"--"; INK 2;"EFEF” 
280 PRINT AT:21,21;"->"; INK 2;"GHGH"; INK 7;” 25" 


290 BRIGHT O 

300 PRINT AT 18,2; PAPER 2;" y 
310 PRINT AT 19,2; PAPER 2;" G 
320 PRINT AT 20,2; INK 7; PAPER 2;" BABY FRUITS 
330 PRINT AT 21,2; PAPER 2;" LE 
340 PRINT AT 0,0;"PESETAS: 1000" 

350 INK 1: PAPER 7 

360 PRINT AT 17,0;"13333333333333333332" 

370 FOR G=16 TO 10 STEP -1 

380 PRINT AT G,0;"5 ye 

390 NEXT G 

400 PRINT AT 9,0;"43333333333333333337" 

410 PAPER 7: INK O 

420 PRINT AT 10,3;"4337 4337 4337" 

430 PRINT AT 11,3;"5QR5 5QR5 5QR5" 

440 PRINT AT 12,3;"5ST5 5ST5 5ST5" 

450 PRINT AT 13,3;"1332 1332 1332" 

460 PAPER 4 

470 FOR I=8 TO 3 STEP -1 

480 PRINT AT 1,3;" $ 

490 NEXT 1 

500 PRINT AT 4,7; INK 0;"AVANCES" 

510 PRINT AT 6,10; INK 0;"0" 

520 PAPER 7 

530 LET PESETAS=1000 

540 REM BUCLE PRINCIPAL DE LA JUGADA 

550 PRINT $1; INVERSE 1;"UNA TECLA PARA JUGAR" 
560 PRINT AT 0,0; PAPER 0; INK 74 "PESETAS: ";PESETAS;"  " 
570 PAUSE O 

580 LET PESETAS=PESETAS-25 

590 PRINT AT 0,0; PAPER 0; INK 7;"PESETAS: ";PESETAS;"  " 
600 INPUT "" 

610 DIM C(3) 

620 FOR I=1 TO 3 

630 LET C(I)=1+INT (RNDx5) 

840 NEXT 1 

650 LET L=1+INT (RNDx5) 

660 FOR I=1 TO L 

670 PRINT FN P$(F$(FN R()),11,4): BEEP .1,-12 
680 PRINT FN PS(F$(FN R()),11,9): BEEP .1,-12 
690 PRINT FN P$(F$(FN R()),11,14): BEEP .1,-12 
700 NEXT 1 

710 PRINT FN P$(F$(C(1)),11,4): BEEP .01,24 

720 FOR I=1 TO L 

730 PRINT FN PS$(F$(FN R()),11,9): BEEP .1,-12 
740 PRINT FN PS$(F$(FN R()),11,14): BEEP .1,-12 
750 NEXT 1 

760 PRINT FN P$(F$(C(2)),11,9): BEEP .01,24 

770 FOR I=1 TO L 

780 PRINT FN PS$(FS(FN R()),11,14): BEEP .1,-12 
790 NEXT 1 

800 PRINT FN P$(F$(C(3)),11,14):: BEEP .01,24 
810 GO SUB 850 

820 IF PREMIO THEN GO SUB 970: GO TO 550 

830 IF RND>.85 THEN GO SUB 1080: GO SUB 850: IF PREMIO THEN GO SUB 970 
840 GO TO 550 

850 REM CALCULO DEL PREMIO 

860 LET PREMIO=0 

870 IF C(1)=5 AND C(2)=5 AND C(3)=5 THEN LET PREMIO=1000: GO TO 980 
880 IF C(1)=3 AND C(2)=3 AND C(3)=3 THEN LET PREMIO=750: GO TO 960 


890 IF C(1)=4 AND C(2)=4 AND C(3)=4 THEN LET PREMIO=500: GO TO 
900 IF C(1)=5 AND C(2)=3 AND C(3)=3 THEN LET PREMIO=250: GO TO 960 
910 IF C(1)=3 AND C(2)=3 AND C(3)=5 THEN LET PREMIO=250: GO TO 960 
920 IF C(1)=5 AND C(2)=4 AND C(3)=4 THEN LET PREMIO=100: GO TO 960 
930 IF C(1)=4 AND C(2)=4 AND C(3)=5 THEN LET PREMIO=100: GO TO 960 
940 IF C(2)=1 AND ((C(1)=2 AND C(3)=1) OR (C(1)=1 AND C(3)=2)) THEN LET PREMIO 
=50: GO TO 960 

950 IF C(2)=2 AND (C(3)=2 OR C(1)=2) THEN LET PREMIO=25 

960 RETURN 

970 REM PREMIO OBTENIDO 

980 FOR G=1 TO PREMIO/25 

990 FOR I=.1 TO .005 STEP -.0O1 

1000 BEEP I, Ix10 

1010 NEXT 1 

1020 LET PESETAS=PESETAS+25 

1030 PRINT AT 0,8; PAPER 0; INK 7;PESETAS 

1040 NEXT G 

1050 RETURN 

1060 REM AVANCES 

1070 LET NAV=1+INT (RNDx*4) 

1080 PRINT AT 15,4; FLASH 1;"1";AT 15,9;2;AT 15,14;3 

1090 PRINT AT 6,10; FLASH 1;NAV 

1100 FOR I=NAV TO 1 STEP -1 

1110 PRINT AT 6,10; FLASH 1;1I 

1120 LET CON=0 

1130 LET A$=INKEY$ 

1140 BEEP .01,20: LET CON=CON+1 

1150 IF CON>100 THEN GO TO 1250 

1160 IF A$>"3" OR A$<"1" THEN GO TO 1130 

1170 LET T=VAL A$ 

1180 LET A=4+(T-1)x*x5 

1190 LET C(T)=1+INT (RNDx5) 

1200 FOR G=1 TO 1+INT (RNDx*5) 

1210 PRINT FN P$(FS$(FN R()),11,A) 

1220 BEEP .1,-24 

1230 NEXT G 

1240 PRINT FN P$(F$(C(T)),11,A) 

1250 NEXT 1 

1260 PRINT AT 6,10;0 

1270 PRINT AT 15,4;" 

1280 RETURN 

1290 REM CARGA LOS UDGS 

1300 RESTORE 1470 

1310 FOR i=USR "a" TO USR "t"+7 

1320 READ a 

1330 POKE i,a 

1340 NEXT i 

1350 DIM F$(5,6) 

1360 LET ch=144 

1370 FOR I=1 TO 5 

1380 READ a 

1390 LET f$(i, TO 2)=CHR$ 16+CHR$ a 

1400 LET f$(i,3 TO 6)=CHR$ ch+CHR$ (ch+1)+CHR$ (CH+2)+CHR$ (CH+3) 
1430 LET ch=ch+4 

1440 NEXT i 

1450 RETURN 

1460 REM DATA DE LOS UDG 

1470 DATA 0,0,11,21, 42,21,20,17 

1480 DATA 0, 96,64, 192,240, 168,168, 40 

1490 DATA 16,16,16,16,33,38,24,0 

1500 DATA 8,16,32,64,128,0,0,0 

1510 DATA 0,1,2,5,5,9,9,17 

1520 DATA 0,0, 128, 64, 64,32,16,16 

1530 DATA 59,119,119,119,119,59,29,0 

1540 DATA 188,222,239,239,239,222,188,0 

1550 DATA 0,0,1,13,30,63,61,61 

1560 DATA 0,0,128,56, 252,252, 254,254 

1570 DATA 62,62,62,30,31,15,3,0 

1580 DATA 254,254, 252, 252,120, 112,192,0 
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1590 DATA 1,1,3,7,7,15,15,31 
1800 DATA 128,128, 192,224, 224, 240, 240, 248 
1610 DATA 31,31,47,48,127,255,255, 63 

1620 DATA 248, 248, 244, 12, 254, 255,255, 252 
1630 DATA 0,127,78,85,85,85,85,76 

1640 DATA 0,254,98,170,170, 170, 170, 38 

1650 DATA 77,85,85,85,85,77,127,0 

1660 DATA 166,170,170,170, 170, 170,254,0 
1670 REM DATA PARA LA MATRIZ DE LAS FRUTAS 
2,2,5,8,0 


Sólo hay que decir que las letras que 
aparecen subrayadas en el listado hay 
que introducirlas con el cursor en modo 
GRAPHICS. Para poner el cursor en este 
modo, tenemos que pulsar a la vez, las 


teclas CAPS-SHIFT y 9. En ese momento el EA 1000 


750 


cursor se volverá como una G parpa- 
deante. Para volver al modo normal del 
cursor, tenemos que pulsar de nuevo 
CAPTS-SHIFT y 9. 


lA El juego nos da avances de vez en 


cuando. 


FESETAS. 1000 


FUJANCES 


Programa: 

 u Integrales para IBM 

Este programa, muy apropiado para 
estudiantes a partir de tercero de BUP, 
nos va a permitir el cálculo de cualquier 
integral definida entre dos valores cua- 
lesquiera. 

El programa puede utilizarse lo mismo 
como programa autónomo que como sub- 


usuario. 


pe 100 INTEGRALES 


| 


INTEGRALES a:? 10 
| F(x)=003 0%) 


ñ .? 
Quieres cambiar la ecuacion (S/N): Nunero de partes:? 200 


Divisiones: 0 
Área= 2,217134 
Quieres continuar (5/M) 


E 


l | A Aspecto de la pantalla una vez registrados 
_ El programa nos permite cambiar la [A los cálculos para saber la integral definida 
función a integrar. entre 10 y 1000 de la función cos (x). 


Esta es la versión para IBM y puede fun- que dispongan del GWBASIC (o BASICA) 
cionar en todos aquellos ordenadores y que tengan alguna tarjeta gráfica. 


ES 
110 REM ox PROGRAMA PARA CALCULAR INTEGRALES POR PARTES AOOIOOIOK 
120 REM totor VALIDO PARA IBM CON TARJETA DE GRAFICOS AMOO 
SS 


ES 


160 REM adMdlaoOlOloO OK POR : CARLOS A. MARIA MORIN lao lSlojoRalalojolalojolojok 
EM SISSI ll SISSI SS PORRO lolo lOJOIJOK 


ES 


200 REM AMOO (C.) EDICIONES SIGLO CULTURAL, 1987 AMO OIOJOJOIK 
IMM SOS ESOS SOS ESOS Ej] ESOS” lS”S SO] lS Sl” E SO] Ol” ESOS” ”]IS O] S EOS lSlSj OOO OK 


CLS 
240 KEY OFF 

250 SCREEN 2 

260 LOCATE 1,35 . 
270 PRINT"INTEGRALES” . 
280 KEY 1,CHR$(13)+"GOTO 440"+CHR$(13) 

290 SCREEN 2 

300 LINE (270,8)-STEP(82,0) 

310 CIRCLE (100,20),20,1,1.8,3 

320 LINE (79,20)-STEP(-5,10) 

330 CIRCLE (853,30),20,1,5,0 

340 LOCATE 2,13 

350 PRINT"b:" 

360 LOCATE 6,9 

370 PRINT"a:" 

380 LOCATE 5,23 

390 PRINT"Quieres cambiar la ecuacion (S/N):" 

400 LET A$=INKEY$ 

410 IF A$="S" OR A$="s" THEN 850 

420 IF A$="N" OR A$="n" THEN GOTO 470 

430 GOTO 400 

440 LOCATE 8,.1 

450 PRINT " F(x)="” 

460 PRINT " E 
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470 LOCATE 21,1 

480 PRINT SPACE$(240) 

490 LOCATE 6,11 

500 INPUT A 

510 LOCATE 2,15 

520 INPUT B 

530 LOCATE 15,1 

540 INPUT "Numero de partes: ";P 
550 LET DX=(B-A)/2/P 

560 LET D=0 
570 LET X=4' | 
580 GOSUB 830 
590 LET D=D+Y 
600 LET X=X+DX 
610 GOSUB 830 
620 LET D=(Yx4)+D 

630 LET X=X+DX 

640 GOSUB 830 

650 LET D=Y+D 

660 LET P=P-1 

670 LOCATE 17,1 

680 PRINT"Divisiones:";P 

690 IF P<>0 THEN 590 

700 LET RE=(DxDX)/3 

710 SOUND 425,1 

720 LOCATE 20,1 

730 PRINT"Area=";RE 

740 PRINT"Quieres continuar (S/N)" 

750 A$=INKEY$ 

760 IF ((A$<>"S" AND A$<>"s") AND (A$<>"N" AND A$<>"n")) THEN 750 
770 IF A$="S" OR A$="s" THEN 230 

TOO KEY-L, "LIST" 

790 KEY ON 

800 CLS 

810 PRINT "ADIOS .. 

820 END 

830 LET Y=COS(X) 

840 RETURN 

850 LOCATE 21,23 

860 PRINT "CAMBIA LA FORMULA Y, SIN PULSAR RETURN, ” 

870 LOCATE 23,28 

880 PRINT"CUANDO TERMINES PULSA [ F1 ] 

890 LOCATE 5,18 

900 PRINT" E 

910 LOCATE 8,1 

920 EDIT 830 


,* 


ORDINOGRAMAS 


DEMAS de la utiliza- 
ción de los símbolos 
indicados, conviene 
sujetarse a unas cier- 
tas normas en la pre- 
paración de los orga- 
nigramas para una 
mayor claridad en la 
representación de los procesos: 


a) Deberán dibujarse sobre papel norma- 
lizado; deben dejarse unos márgenes 
adecuados (con vistas a su posible re- 
producción) especialmente en el lado 
izquierdo, pues en la encuadernación 
se perdería (en caso contrario) parte 
de la información. 

b) Es básico preparar y rellenar cuidado- 
samente un cajetín de identificación 
de todos los procesos. Además, es útil 
referenciar otros procesos que prece- 
dan o vayan a continuación de aquel 
al que se refiere el organigrama en 
cuestión. 

Cc) Debe establecerse una norma unifor- 
me para toda la documentación, de 
modo que exista un organigrama ge- 
neral de la aplicación y otros varios de 
cada proceso independiente (uno por 
cada actividad separable del resto). 
Junto a cada uno de estos organigra- 
mas parciales se preparará un ordino- 
grama lógico de cada proceso (más 
adelante hablaremos de ellos). 

d) El flujo lógico de la información irá (sal- 
vo excepciones) de la parte superior 
del dibujo hacia la parte inferior y de iz- 
quierda a derecha. 

e) En los conectores y las lineas de co- 
nexión de símbolos se indicará (con 
puntas de flecha) el sentido del flujo de 
la información. 
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f) Deben identificarse (al menos somera- 
mente) los procesos que intervienen en 
la aplicación y los archivos involucra- 
dos. 


Ordinogramas 


En un segundo nivel de detalle, se suelen 
preparar unos organigramas de detalle o mi- 
croorganigramas, para cada proceso sepa- 
rado dentro de la aplicación. En estos orga- 
nigramas de detalle, es importante resaltar 
los procesos lógicos que se producen y el flu- 
jo de los datos. Actividades como selección, 
clasificación, etc., son las importantes a rese- 
ñar en cada documento (más que la relación 
de unos procesos con otros o la estructura 
general de las actividades que vendrán re- 
flejadas en los organigramas de la aplica- 
ción); por esta razón a estos organigramas se 
les denomina, en ocasiones, ordinogramas 
de proceso. 

Para la preparación de los ordinogramas 
se utilizan la mayoría de los símbolos usados 
en los organigramas, y algunos otros más 
concretos que señalan el flujo de los datos y 
los procesos básicos a desarrollar con ellos: 


¡NI 
<> 


Subrutina o proceso 
predefinido. 


Simbolo de prepara- 
ción. Para reseñar las 
operaciones adiciona- 
les necesarias para al- 
gún proceso especial. 


Bifurcación. Se utiliza 
como un conector (del 
que parten y salen lí- 
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neas de flujo de datos) 
pero incluyendo algún 
criterio de toma de de- 
cisión. 


Simbolo terminal. 
Marca el comienzo o fi- 
nal de un proceso. 


QUID 


La utilización básica de estos símbolos es 
equivalente, pero el concepto del diagrama 
y su finalidad varían. En cualquier caso, el cri- 
terio fundamental que se debe aplicar es 
que, dentro del conjunto de normas estable- 
cidas, los organigramas y ordinogramas sean 
de la máxima claridad posible. 

Deberán tenerse en cuenta, en la confec- 
ción de los ordinogramas, las siguientes nor- 
mas: 


a) establecer un ordinograma para cada 
proceso separable en que se puede 
dividir la aplicación, dando indicacio- 


COMPROBACION 
FICHEROS 
ENTRADA 


b) 


c) 


d) 


e) 


1) 


nes (con el símbolo de relación corres- 
pondiente) para las correspondencias 
entre los diferentes procesos. 
Aunque en el correspondiente símbolo 
de tratamiento o clasificación se indi- 
quen los parámetros a utilizar, es con- 
veniente reseñar a nivel de presenta- 
ción del ordinograma las funciones bá- 
sicas y parámetros que caracterizan 
cada proceso. 

Las líneas de flujo deben ser verticales 
y horizontales (no oblicuas). Las líneas 
que parten de cada archivo deben ir 
a un solo símbolo de proceso. Si deben 
llegar a un símbolo de archivo varias 
conexiones (de procesos diferentes) o 
si han de salir de un archivo varias lí- 
neas deberán incluirse los oportunos 
conectores (círculos de enlace) de 
donde bifurquen estas líneas. 

Para mayor claridad, se suelen poner 
los símbolos de salida impresa debajo 
del tratamiento en el que se prepara 
dicho impreso. Los símbolos de entra- 
da o salida magnética (cintas y discos) 
se deben poner a izquierda o derecha 
respectivamente del símbolo del trata- 
miento correspondiente. Si un archivo 
es de acceso doble (para entrada y 
para salida) se debe poner a la izquier- 
da dei símbolo de tratamiento, prefe- 
rentemente, y unido a éste por una do- 
ble flecha para indicar que se produ- 
ce un flujo bidireccional de datos. 

Se supone que el flujo lógico de pre- 
sentación de archivos y procesos es de 
izquierda a derecha y de arriba abajo. 
Cuando el flujo de datos va según esta 
norma, no es necesario utilizar puntas 
de flecha: si los datos no van según 
esas direcciones deben utilizarse di- 
chos simbolos. 

Deben evitarse las intersecciones de lí- 
neas de conexión y, en caso impres- 
cindible, limitarlas al máximo. Si el re- 
sultado incluye muchos cruces y se 
pierde claridad, separar una parte del 
proceso llevándolo a otro ordinograma 
o, dentro de la misma hoja, haciendo 
otro ordinograma. En ambos casos es 
imprescindible establecer claramente 
los puntos de relación de las diferentes 
partes, mediante los correspondientes 
símbolos conectores. 


EXPRESIONES 


EMOS visto que las ex- 
presiones de resulta- 
do lógico pueden to- 
mar sólo dos valores 
diferentes: «verdade- 
ro» y «falso». ¿Cómo 
se representan estos 
dos valores en la me- 
moria de un ordenador? 

La respuesta a la pregunta anterior de- 
pende del lenguaje de programación. En 
general, se utilizan ciertas combinacio- 
nes de bits para representarlos. Por ejem- 
plo, en BASIC, el valor «falso» se represen- 
ta generalmente con un cero, mientras 
cualquier valor distinto de cero significa 
«Verdadero». En particular, las expresio- 
nes de comparación (como X=3) devuel- 
ven un valor igual a cero si la condición 
no se cumple, y un valor igual a -1 si la 
condición se cumple. Naturalmente, es- 
tos valores también estarán representa- 
dos internamente como números enteros 
binarios de cierto número de dígitos. Los 
números negativos se representan, como 
ya hemos mencionado, con la notación 
de «complemento a dos». 

En BASIC es posible asignarle a una va- 
riable el resultado de una operación ló- 
gica e imprimir su valor. Además, las ope- 
raciones lógicas (como AND) pueden 
actuar sobre valores no lógicos (ente- 
ros). En este caso, la operación se reali- 
za bit a bit, como si el número entero, ex- 
presado en el sistema binario, estuviera 
en realidad formado por un vector de ce- 
ros y unos, donde los ceros significan «fal- 
so» y los unos «verdadero». Veamos algu- 
nos ejemplos: 
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El primer caso (NOT 2, que da un resul- 
tado de -3) precisa para interpretarlo 
conocer la notación de complemento a 
dos que representa los números negalti- 
vos. En efecto, la representación binaria 
en 16 bits del número entero 2, es 
0000000000000010. La operación NOT, 
aplicada bit a bit, cambia todos los 
ceros (falso) en unos (verdadero) y to- 
dos los unos (verdadero) en ceros (fal- 
so). Por tanto, NOT 2 sería igual a 
1111111111111101, que es la represen- 
tación en complemento a dos del núme- 
ro negativo -3. 

El segundo caso es más fácil: se trata 
de realizar la operación AND entre los 
dos enteros 9 y 12. La representación bi- 
naria del 9 es 0000000000001001 y la del 
12 es 0000000000001100. La operación 
AND, realizada bit a bit, convierte dos 
unos en un uno (la conjunción es verda- 
dera si los dos operandos lo son) y cual- 
quier otra combinación de bits en cero 
(la conjunción es falsa en cuanto uno de 
los operandos lo sea). Por tanto, la ope- 
ración se realizará así: 
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0000000000001001 
AND 


0000000000001100 
da 


0000000000001000 


Es decir, el resultado será igual a 
0000000000001000 en binario, que es el 
número 8. Este valor ha sido asignado por 
la instrucción (LET A=9 AND 12) a la varia- 
ble A, que por tanto valdrá precisamen- 
te 8. 

Veamos el tercer ejemplo. La instruc- 
ción (LET B=A=8) es muy significativa, 
pues nos presenta claramente otra de las 
anomalías del lenguaje BASIC, especial- 
mente visible en intérpretes que permi- 
ten prescindir de la palabra reservada 
LET en las asignaciones de valor, pues en- 
tonces la instrucción anterior queda re- 
ducida a (B=A=8). Esta anomalía consis- 
te en el hecho de que, en BASIC, el mis- 
mo símbolo (=) representa dos operacio- 
nes completamente diferentes: la asig- 
nación de valor y la comparación de dos 
valores. El intérprete decide cuál es el 
significado apropiado en cada caso en 
función del contexto. Una asignación de 
valor debe estar situada a la izquierda 
de una instrucción, por lo que el primer 
signo igual de la instrucción anterior es 
interpretado de esta manera. En cambio, 
si existe algo a la izquierda del signo 
igual y de sus operandos, el intérprete 
llega a la conclusión de que se trata de 
una comparación. Por lo tanto, la instruc- 
ción (B=A=8) significa: «Comparar el va- 
lor de la variable A con 8. Si son iguales, 
asignarle -1 (“verdadero”) a la variable 
B. Si A no vale 8, asignarle 0 (“falso”) a la 
variable B». Como, en nuestro caso, A va- 
lía 8, el valor de B pasa a ser -1, como 
podemos comprobar en la instrucción si- 
guiente. 

En cambio, en el cuarto ejemplo, la ins- 
trucción (LET C=A=7) asigna a C el valor 
cero («falso»), pues no es verdad que el 
valor de A (8) sea igual a 7. 

En BASIC no existen variables de tipo ló- 
gico. Si le asignamos un valor lógico a 
una variable (como en los ejemplos an- 
teriores) el valor asignado pasa a ser, in- 
mediatamente, entero. En PASCAL, sin 
embargo, sí se pueden definir variables 
de tipo lógico, lo que se consigue con 
una declaración parecida a la siguiente: 


var 
x,correcto : boolean; 


que define las dos variables «x» y «correc- 
to», cuyo valor será lógico (booleano, en 
la terminología de PASCAL). Una variable 
booleana sólo puede adoptar uno de los 
dos valores: «verdadero» (representado 
por la palabra inglesa «TRUE») y «falso» 
(representado por la palabra inglesa 
«FALSE»). Estas dos palabras están reser- 
vadas para este uso, por lo que se pue- 
den utilizar directamente en asignacio- 
nes a variables lógicas: 


correcto:=false; 
x:=true; 


También se pueden utilizar como térmi- 
nos de comparación en una expresión 
relacional: 


Las dos líneas de este último ejemplo 
son totalmente equivalentes. Pues 
(x=true) es verdad («true») sí y sólo si el 
valor de x es «true». Por lo tanto, la expre- 
sión (x=true) puede sustituirse simple- 
mente por (x). 

En APL, la verdad o la falsedad de una 
operación se representan siempre con 
los valores cero («falso») y uno («verdade- 
ro»). Este cero y este uno pueden consi- 
derarse, indistintamente, como valores 
lógicos o como valores enteros, con los 
que se puede operar. Esto es útil a menu- 
do. Por ejemplo, supongamos que tene- 
mos una variable X cuyo valor es una se- 
rie de números enteros: 


1442 1.3.5.6 17.2 3411 "35484 e 
Xx 


€. 413 SINO TT SAD AIN E 


Supongamos que nos interesara saber 
cuáles de los valores de X son menores 
que 4. Bastaría con realizar la siguiente 
comparación: 


x<4 
LEIA AO 00.0 £ 


donde los unos del resultado correspon- 
den a los elementos de X para los que la 
relación es «verdadera» (es decir, para 
los que son menores que 4), mientras los 
ceros corresponden a aquellos elemen- 
tos para los que la relación es «falsa» (es 
decir, para los que son mayores o igua- 
les que 4). 

Pues bien: supongamos que lo que 
realmente deseamos saber no es cuáles 
son los elementos de X que son menores 
que 4, sino cuántos son. Su número, sin 
importarnos su orden ni su posición. Po- 
dríamos obtenerlo con la expresión si- 
guiente: 


En efecto, el par de símbolos (+/) ob- 
tiene en APL la suma de todos los ele- 
mentos de la serie de números a la que 
se aplica. En nuestro caso, como el resul- 
tado de la relación lógica puede consi- 
derarse también como una serie de nú- 
meros enteros (ceros y unos), dicha suma 
tiene que coincidir con el número de 
unos, que no es otra cosa que el número 
de los elementos de X que eran menores 
que 4. 


Existen otras muchas aplicaciones de 
las operaciones y los tipos de datos lógi- 
cos, pero ya tenemos bastante por el mo- 
mento. 


Expresiones literales 


Llamaremos expresiones literales a las 
que se aplican a datos literales (cade- 
nas de caracteres) para producir resulta- 
dos literales. 

La operación literal más frecuente en 
los lenguajes de programación es la con- 


catenación, que une dos cadenas de 
caracteres entre sí para formar una ca- 
dena nueva, cuya longitud es la suma de 
las longitudes de las dos cadenas a las 
que se aplica. En BASIC esta operación 
se representa con el signo +: 


10 LET X$="Casa" 
20 LET N$="Juan" 
30 PRINT X$+"de"-+NS$ 
RUN 


Casa de Juan 


Obsérvese que, al concatenar dos ca- 
denas de caracteres BASIC, se introduce 
automaticamente un espacio en blanco 
entre ellas. 

En los compiladores de PASCAL que re- 
conocen el tipo «string» existe también la 
operación de concatenación, que por 
analogía con BASIC se suele representar 
también con el signo +. Sin embargo, en 
este caso no se introducen automática- 
mente espacios en blanco entre los ca- 
racteres que se concatenan. 


program literal; 
var 
x,nombre : string; 


nombre:="Juan?” 3 
writelníx+” de *+nombre); 
end. 


El programa anterior produce el mismo 
resultado que el ejemplo BASIC equiva- 
lente. Obsérvese que, en este caso, he- 
mos tenido que incluir explícitamente los 
blancos de separación a ambos lados 
de la palabra «de». 

En APL, la operación de concatenación 
se representa con una coma y se aplica 
por igual a datos literales o numéricos. 
Tampoco en este caso se añaden auto- 
máticamente espacios en blanco para 
separar los literales que se concatenan. 


X+'Casa' 

NOMBRE+' Juan ' 
X,' de ', NOMBRE 

Casa de Juan 
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Además de la operación de concate- 
nación, existen en los lenguajes de pro- 
gramación otras funciones u operacio- 
nes que actúan sobre datos literales. 
Veamos una lista de algunas funciones li- 
terales BASIC: 


FUNCION RESULTADO 


LEFTS (x$,n) Los n caracteres a la 


izquierda de x$% 
MIDS$ (x$,n,m) m caracteres de x$ a 


partir del que hace 
el número n 
Los n caracteres a la 
derecha de x$ 
Una cadena de n 
espacios en blanco 
El primer carácter de 
x$ repetido n veces 


RIGHTS (x$,n) 


SPACES (n) 


STRINGS$ (n,x$) 


En PASCAL, dado que el tipo «string» no 
es uno de los tipos estándar de este len- 
guaje, las funciones que actúan sobre él 
dependen del compilador. Una de las 
más corrientes es la función COPY, que 
actúa de manera equivalente a la función 
MID$S de BASIC. ) 

En cambio, el tipo «char» sí es un tipo 
estándar de PASCAL, por lo que las dos 
funciones siguientes aparecerán normal- 
mente en todos los compiladores: 


RESULTADO 


Carácter anterior a x en la 
lista de caracteres 

Carácter siguiente a x en 

dicha lista 


En APL existen también funciones que 
pueden actuar por igual sobre datos nu- 
méricos o literales. Por ejemplo, la ope- 
ración representada por una flecha as- 
cendente extrae de la serie de datos si- 
tuadas a su derecha, cualquiera que sea 
su tipo, tantos elementos como indique 
el número situado a su izquierda. De igual 
manera, la operación representada por 
una flecha descendente elimina de la se- 
rie de datos situada a su derecha tantos 


elementos como indique el número situa- 
do a su izquierda. 
Veamos algunos ejemplos: 


31'ABCDEFG' 


34+'ABCDEFG' 


IFLL. 3 GE 


a E E ES 
13.67 


Expresiones mixtas 


Estrictamente hablando, son las que 
mezcian datos de distintos tipos o que 
producen un resultado de tipo diferente 
al de sus operandos. Por ejemplo: núme- 
ros con literales, datos numéricos con da- 
tos lógicos, etc. Ya hemos visto algunos 
casos. Las operaciones de comparación, 
por ejemplo (como X=2) se utilizan para 
comparar dos números, obteniendo el 
resultado «verdadero» o «falso». Estas mis- 
mas operaciones se pueden utilizar con 
datos de caracteres. Por ejemplo, en BA- 
SIG: 


LET X$="Caso"” 
LET A=X$="Caso” 
PRINT A 


En PASCAL: 


En APL: 


A+'CASA DE JUAN' 
A='A' 
010100000010 


LOGO 


Utilización de 
” los 
procedimientos 


A sabemos que po- 
demos enseñar a la 
tortuga a hacer cosas 
nuevas definiendo un 
procedimiento y que 
no lo olvidará hasta 
que se lo digamos o 
hasta que apague- 
mos el ordenador. Por tanto, la palabra 
que da nombre a ese procedimiento es 
como si fuera un comando más para la 
tortuga. Por ello, la podemos utilizar, por 
ejemplo, dentro de un REPITE. 
Supongamos que queremos pintar una 
figura formada por 4 circunferencias: 


Una manera de hacerlo ya la conoce- 
mos: 


? REPITE 4 [REPITE 36 [AV 3 GD 103 GD 90] 


La otra consiste en definir un procedi- 
miento para que la tortuga aprenda a di- 
bujar una circunferencia: 


? PARA CIRCUNFERENCIA 


> REPITE 36 [4V 3 6D 1013 


> FIN 


Estas nuevas palabras también se pue- 
den usar junto con otros comandos, no 
sólo con el REPITE. Veámoslo con un ejem- 
plo. 

Para obtener un dibujo formado por un 
conjunto de ladrillos 


primero hemos de enseñarle a la tortuga 
a hacer un ladrillo. Por ello, definimos un 
procedimiento: 


7 FARA LADRILLO 
* REPITE 2 [AV 20 GD 90 AV 40 GD 90] 


> FIN 


30 LOGO 


y ahora escribimos los siguientes coman- 
dos: 


? LADRILLO 
7 GD 90 AY 
?* 61:90 RE 
? LADRILLO 


? AV 20 


7? LADRILLO 


? BD 90 AV 40 
?7 61 90 RÉ 
? LADRILLO 


e 


Como vemos, antes de dibujar cada la- 
drillo hemos de decirle a la tortuga una 
serie de comandos para que se vaya co- 
locando en la posición que corresponda 
a ese ladrillo. 


Uso de unos 
procedimientos dentro 
de otros 


Debido a que el nombre de un proce- 
dimiento se puede utilizar como si fuera 
un comando, parece lógico que lo po- 
damos poner dentro de la definición de 
otro procedimiento. 

De esta manera, para realizar un dibu- 
jo que sea bastante complicado, en lu- 
gar de hacerlo con un solo procedimien- 
to podemos dividirlo en partes más pe- 
queñas y sencillas. Cada una de estas 
partes se obtiene a partir de su procedi- 
miento correspondiente. Por último, ne- 
cesitamos definir un procedimiento ge- 
neral que se encargue de usar todos los 
demás y con el que podamos pintar el di- 
bujo completo. 

Por ejemplo, vamos a dibujar una bali- 
larina: 


> y 
ee 


Podemos dividirla en cuatro partes: 


— cabeza 
— cuerpo 
— brazos 
— piernas 


Ahora escribimos un procedimiento 
que se encargue de dibujar cada parte: 


-—— Cabeza 


7? PARA CABEZA 
> REPITE 36 E AV 2 6D 10) 


> FIN 


— cuerpo 


? PARA CUERPO 
> AV 30 GD 30 
+ REPITE 3 LAV 2á Gl 1203 


> FIN 


? PARA PIERNAS 
+ AV 40 RE 40 
Gl 45 
AV 20 GD 90 AV 20 


> FIN 


— brazos 


? PARA BRAZODCHO 
> AV 20 
Gl 60 AV 15 
+ GI 30 AV Ss 
FIN 
? PARA BRAZOIZO 
Av 20 
GD 30 AV 3 


FIN 


Nos queda escribir el procedimiento fi- 
nal que tenga como función obtener el 
dibujo total (la bailarina). Para ello, tene- 
mos que ir colocando a la tortuga en la 
posición correcta antes de dibujar cada 
parte: 


? PARA BAILARINA 
BR 
SL AV 40 BL 
GI 90 
CABEZA 
>-G1 90 
+ CUERPO 
SL AV 26 GI 120 AV 13 BL 
> BD 90 
+ PIERNAS 
SL CENTRO 


> AV 30 GD 60 BL 


> BRAZODCHO 


SL CENTRO 
AV 30 GI 120 BL 


ERAZOIZO 


Vamos a hacer lo mismo para dibujar 
esta noria: 


En primer lugar, dividimos la noria en 
partes mas sencillas: 


— soporte 

— barra 

— cabina 

En segundo lugar, hemos de enseñarle 


a la tortuga a hacer cada cosa. Para ello, 
definimos los procedimientos siguientes: 


-— Soporte 


? PARA SOFORTE 


> RE 50 


> GD 73 AV 26 


GI 105 AV 50 


FIN 


-— barra 


7 PARA BARRA 


+ AV 30 


2 FIN 


— Cabina 


7 PARA CABINA 


> REPITE 36 FTAV 1 GD 101 


> FIN e 


as LOGO 


Por último, creamos el procedimiento que le enseñe a la tortuga a realizar la noria: 


? PARA NORIA 
> 6D 15 
> SOPORTE 


+ PONRUMEO 90 


El usar este método de descomponer 
un dibujo complejo en partes más pe- 
queñas no sólo ayuda a que sea más 
sencillo de realizar, sino que, además, es 
mejor a la hora de tener que corregir los 
procedimientos si no nos sale el dibujo 
que queremos. 

Esto es debido a que sólo necesitare- 
mos cambiar aquel procedimiento 
correspondiente a la parte del dibujo 
que esté mal, sin que esto afecte a los 
que estén bien, ya que no hará falta mo- 
dificarlos. 

Además, si una parte del dibujo se re- 
pite varias veces es más cómodo utilizar 
el procedimiento ya definido que le 
corresponda que tener que escribir en 
cada ocasión el conjunto de comandos 
necesarios para pintarla. 


3 
Os proponemos 


1. Puedes pintar una cara. Te damos 
como pista las partes en las que la pue- 
des dividir. 


: REPITE 6 [BARRA Gl 90 CABINA GD 90 RE 30 GD 60] 


Cara: 


— ojos 
— nariz 
— boca 
— pelo 


2. También puedes intentar pintar 
este edificio dividiéndolo en varias par- 


LY |] 
LY | | 


ly ||] 
JU] 
A 


3. ¿Te atreverías a hacer este tren? 


4. Prueba ahora con este muñeco. 6. Ahora puedes realizar este dibujo: 


Para dibujar media circunferencia utili- 
za el comando REPITE, así: 


REPITE 18 (AV tamaño GD 10) 
7. ¿Qué te parece este molino? 


5. Puedes pintar también una fábrica. 


== — = == El == Para dibujar o recorrer la cuarta parte 
de una circunferencia has de poner: 
LAT REPITE 9 (AV tamaño GD 10) 


PASCAL 


UNQUE todavía que- 
dan muchos concep- 
tos de PASCAL por es- 
tudiar, ya conoce- 
mos lo suficiente 
como para desarro- 
llar algún programa 
que sea más intere- 
sante que los que hemos hecho hasta 
ahora. Por ello, y para descansar de tan- 
ta teoría, vamos a escribir uno que nos 
permita jugar al «Master Mind» con el or- 
denador; en principio, seremos sólo no- 
sotros quienes tratemos de adivinar la 
combinación secreta, aunque en otra 
ocasión veremos cómo modificar el pro- 
grama para que también pueda ser el or- 
denador el que lo intente con una com- 
binación escogida por nosotros. 


O El juego del Master Mind 


Aunque existen muchas variantes de 
este juego, vamos a describir una de las 
más corrientes, que será la que emplea- 
remos; consiste en lo siguiente: 

Un jugador (que en nuestro caso será 
el ordenador) se inventa una combina- 
ción secreta formada por cuatro elemen- 
tos, cada uno de los cuales puede tomar 
uno cualquiera de entre varios posibles 
valores. Por ejemplo, los elementos po- 
drían ser cifras comprendidas entre 1 y 8, 
o letras entre la A y la G, o piezas de 6 po- 
sibles colores; de esta manera, podría- 
mos tener combinaciones como 1315 
para el primer caso, BAGB para el segun- 
do o «rojo, blanco, rojo, rojo» para el último. 

El otro jugador ha de adivinar la com- 
binación; para ello va presentando a su 


oponente distintas combinaciones, y 
este debe informarle sobre lo acertado 
que sea cada intento de la siguiente ma- 
nera: 


— Por cada uno de los elementos de 
la nueva combinación que coincida en 
valor y posición con uno de la combina- 
ción secreta, se contabiliza lo que se de- 
nomina un «muerto». Por ejemplo, si la 
combinación a descubrir fuera 1315 ten- 
dríamos: 


1315 


2345 Dos muertos (el 3 y el 5). 

3151 Ningún muerto. 

5112 Un muerto (el segundo 1). 

1315 Cuatro muertos (o sea, ya está). 


— Por cada uno de los elementos de 
la nueva combinación que coincida en 
valor, pero no en posición, con uno de la 
combinación secreta, se contabiliza lo 
que se denomina un «herido», teniendo 
en cuenta que si un elemento ya ha ser- 
vido para contabilizar un muerto o un he- 
rido, no sirve para contabilizar más de és- 
tos. Por ejemplo: 


1315 


1222 Ningún herido (el 1 ya dio un muerto). 
2164 Un herido (el 1). 

3636 Un herido (alguno de los treses). 
5112 Dos heridos (el 5 y el primer 1). 
3151 Cuatro heridos. 


El poseedor de la combinación secre- 
ta debe contestar a cada intento del otro 
jugador con el número de muertos y he- 
ridos correspondiente, hasta que se des- 
cubra la solución; se trata de hacerlo 
con el menor número de intentos posible. 
Suponiendo que las cifras sólo puedan 


variar entre 1 y 6, veamos una partida 
muy sencilla: 


6334: da 1 muerto y 0 heridos. 


supongamos que el muerto se debe al 4 
y probemos a variar las otras cifras: 


1224: da 1 muerto y 0 heridos 


si fuese el 4, entonces no habría 1, 2, 3 ni 
6 y las tres restantes cifras deben ser 4 
y/o 5; probaremos, por tanto, lo siguiente: 


5544: da O muertos y 1 herido 


por tanto, no hay ningún 4 y debe haber 
un 5 en alguna de las posiciones de la 
derecha, asícomo 3066y 16 2 en las de- 
más; probemos: 


6256: da O muertos y 1 herido 


como hay un 5 seguro, éste está en últi- 
mo lugar y no hay ni 2 ni 6; por la prime- 
ra combinación sabemos que no puede 
haber más de un 3, con lo que sólo pue- 
de ser 13156 1135. 


1315: da 4 muertos 


Todo buen programador encontrará 
claro el proceso deductivo. Una vez des- 
crito el juego, pasemos a escribir el pro- 
grama. 


S Creación de la combinación 
secreta 


La combinación, como es lógico, debe 
crearla el programa al azar. La mayoria 
de compiladores de PASCAL disponen 
de alguna función para obtener números 
al azar que suelen tener nombres del es- 


program Combinaciones; 
var 


Aleatorio : real; 
Limite, 1,J: integer; 


procedure ArrancaáAzar; 


tilo de RANDOM; no obstante, como no es 
una función estándar, nosotros nos crea- 
remos la nuestra propia. 

El sistema que seguiremos es uno muy 
sencillo que para un problema como el 
nuestro es más que suficiente; consiste 
en lo siguiente: 

Dado un número aleatorio cualquiera 
comprendido entre 0 y 1, se obtiene uno 
nuevo a partir de él tomando la parte 
fraccionaria del resultado de multiplicar- 
lo por 997. 

De esta manera obtenemos, a partir de 
un número cualquiera (que en nuestro 
caso se lo daremos nosotros al ordena- 
dor) una secuencia de números aleato- 
rios. Si, por ejemplo, quisiéramos obtener 
números aleatorios enteros comprendi- 
dos entre 20 y 29, como los obtenidos es- 
tán comprendidos entre 0 y 1, bastará 
con multiplicarlos por 10, truncar a ente- 
ro el resultado (con lo que tendremos nú- 
meros entre 0 y 9) y sumarles 20. 

Vamos a escribir un pequeño progra- 
ma que presente combinaciones aleato- 
rias de Master Mind; podría ser algo así: 


1. Introducir un número cualquiera de 
arranque. 

2. Preguntar el límite superior de los 
posibles valores. 

3. Presentar unas cuantas combina- 
ciones. 


Utilizaremos un procedimiento para el 
punto 1 y otro para obtener números 
aleatorios. Cada vez que se llame a este 
último procedimiento, como es necesa- 
rio utilizar el número anterior, habrá que 
guardar a éste en una variable global 
(que llamaremos Aleatorio). 


(Xx Pide el primer número de la serie aleatoria *X) 


var Ok:z boolean; 
begin 
witeln (*Teclee un número entre O y 1, ambos exclusive.?”); 
repeat 
readln (Aleatorio); 
Ok:= (0.0 < Aleatorio) and (Aleatorio < 1.0); 
if not Ok then writeln (*No vale. Repita.”) 


function Azar (In+,Sup: integer): integer; 


36 PASCAL 


(x 


var A: real; 
begin 


ArrancafAzar; 


readln (Limite); 
writeln; 

for l:= 1 to 20 do 
begin 


end 
end. 


La función real predefinida Frac, que 
devuelve la parte fraccionaria de un nú- 
mero, no está disponible con todos los 
compiladores; si éste es nuestro caso, 
una solución alternativa sería cambiar la 
instrucción: 


Aleatorio:= frac (Aleatorio * 997); 


por: 


Aleatorio:= Aleatorio * 997; 
Aleatorio:= Aleatorio-trunc (Aleatorio); 


Obtención del número 
de muertos y heridos 


Una vez que se ha obtenido una com- 
binación secreta, el programa debe pre- 
guntar combinaciones al jugador y de- 
volverle el número de heridos y muertos 
hasta que éstos sean 4. 


program MasterMind; 


var 
Aleatorio : real; 


S1,S2,S3,5S4, 
C1,C2,€3,C4, 
Muertos, 
Heridos, 


Limite : integer; 


procedure ArrancaAzar; 


proporciona un número entero aleatorio x 
xk entre Inf y Sup, ambos inclusive x) 


Aleatorio:= frac (Aleatorio kx 997); 
Azar:= Inf + trunc (Aleatorio X*X (Sup — Inf + 1)) 


write (”Números del 1 al...”); 


(kx Presentar 20 combinaciones X*) 


for J:=1 to 4 do write (Azar (1, Limite)); 
writeln (k salta de línea tras cada combinación %*) 


(xXx ¡OJO! x) 


Para analizar el número de muertos bas- 
tará con comparar la primera cifra de la 
combinación secreta con la primera de 
la del jugador, la segunda con la segun- 
da, etc. 

Para los heridos, sin embargo, habrá 
que comparar cada cifra de una combi- 
nación con todas las de la otra que ocu- 
pen diferente posición. Hay que evitar 
que cifras que ya han dado lugar a muer- 
tos o heridos se vuelvan a contabilizar 
por haber varias repetidas; por ejemplo, 
si comparamos por las buenas 1234 con 
1122, obtendríamos un muerto y tres he- 
ridos, lo cual es erróneo. La solución más 
fácil es «tachar» cada cifra que haya 
dado lugar a un muerto o herido cam- 
biándole el valor a otro que sepamos se- 
guro que no va a poder proporcionar 
más coincidencias; para no perder la 
combinación original habrá, por tanto, 
que trabajar con una copia: 


(k Para guardar la clave secreta *) 
(kx Para guardar cada intento x) 


(k Pide el primer número de la serie aleatoria *) 


var Ok: boolean; 
begin ' 
writeln (”Teclee un número entre O y 1, ambos exclusive.?”); 
repeat 
readln (Aleatorio); 
Ok:= (0.0 < Aleatorio) and (Aleatorio < 1.0); 
if not Ok then writeln (”No vale. Repita.”) 
until Ok 
end; 


function Azar (Inf,Sup: integer): integer; 
(Xx proporciona un número entero aleatorio x 
x entre Inf y Sup, ambos inclusive x) 


var A: real; 


begin ' E 
Aleatorio:= frac (Aleatorio % 997); (Xx ¡OJO! x) 
Azar:= Inf + trunc (Aleatorio * (Sup - Inf + 1)) 

end; 

A A x) 


procedure Analizar; 
(* Compara S1,S2,S3,S4 con C1,C2,C3,C4 y da x 
* el valor adecuado a Muertos y Heridos. x) 


var 
A1,A2,A3,54: integer; 

begin 

(X Saca una copia de la clave secreta: *) 
Al:= Si; 

A2:= S2; 

A3:= S3; 

Asd:= S4; 


(x Analiza los muertos: %*) 
Muertos:= 0; 


if Al = C1 then begin Muertos:= Muertos + iz Ál:z= -1; Ci:= -2 end; 
if A2 = C2 then begin Muertos:= Muertos + 13 A2:= -1; C2:= -2 end; 
if A3 = C3 then begin Muertos:= Muertos + 13 A3:= -1;3 C3:= -2 end; 
if A% = C4 then begin Muertos:= Muertos + 1; Ad:= -1; C4:= -2 end; 


(*x Analiza los heridos; las instrucciones marcadas con asteriscos no 
son necesarias pues las variables afectadas no se van a comparar 
más; no obstante, se han dejado para tener una mayor regularidad  X) 

Heridos:= 0; 


if Al = C2 then begin Heridos:= Heridos + 13 Al:= -1; C2:= -2 end; 

if Al = C3 then begin Heridos:= Heridos + 1; Al:= -1; C3:= -2 end; 

if Al = C4 then begin Heridos:= Heridos + 13 Al:= -1; C4:= -2 end; 
(xx) 

if A2 = Ci then begin Heridos:= Heridos + 1; A2:= -13 Ci:= -2 end; 

if A2 = C3 then begin Heridos:= Heridos + 13 A2:= -13 C3:= -2 end; 

if A2 = C4 then begin Heridos:= Heridos + 1; A2:= -1; C4:= -2 end; 
(xx) 

if A3 = C1 then begin Heridos:= Heridos + 1; A3:= -13 Ci:= -2 end; 

if A3 = C2 then begin Heridos:= Heridos + 1; A3:= -1; C2:= -2 end; 

if A3 = C4 then begin Heridos:= Heridos + 1; A3:= -1; C4:= -2 end; 


(xx) 1419) 


if A4 = C1 then begin Heridos:= Heridos + 1; Ad:= —-1; Ci:z= -2 (XX) end; 

if A%4 = C2 then begin Heridos:= Heridos + 1; A4d:= -1; C2:= -2 (xx) end; 

14 A% = C3 then begin Heridos:= Heridos + 1; A4:= -13 C3:= -2 (Xx) end; 
(xx) 


begin 

Arrancahzar; 

write (*Números del 1 al...?”); 
readlin (Limite); 


repeat (X repetir partidas 1) 
(kx Primero, inventarse una clave: 3%) 
Si:= Azar (1, Limite); 
S2:= Azar (1, Limite); 
S3:= Azar (1, Limite); 
S4:= Azar (1, Limite); 


Aleatorio:= frac (Aleatorio * 997); 


Aleatorio:= Aleatorio * 997; 4 
Aleatorio:= Aleatorio - trunc (Aleatorio); 


as PASCAL 


—— A A A A A e e e e e e a e e e e a a a AAA 


ClrScr; (* o PAGE, para borrar la pantalla *) 
writeln (”Tras cada cifra, pulse Intro.?); 
witeln; 
repeat —(* Pedir y analizar combinaciones: 
write (*Clave: ?”); 
read (C1); 
read (C2); 
read (C3); 
read (C4): 


Analizar; 


writeln (?  m=”",.Muertos,”?  h=”,Heridos) 
until Muertos = 4; 
(x----—- a a a e x) 
writeln; . 
write (*¿ Desea otra partida ? (S/N) £d7 
readlin (Letra) 


—_ A A 


Como ejercicio, se podría modificar el Dentro de poco veremos cómo el ana- 
programa para que compruebe que los lista se puede hacer de una manera mu- 
números tecleados son correctos. Tam- cho mas elegante. 
bién se podría mejorar el aspecto estético. 


um ¡Qué es 
un array? 


N array es una estruc- 
tura de datos forma- 
da por elementos del 
mismo tipo y utiliza- 
dos para almacenar 
una serie de datos 
que nuestro progra- 
ma necesita. Por 
ejemplo, podremos guardar las vocales 
en un array compuesto por cinco ele- 
mentos. 

Veamos algunas formas de declarar 
arrays: 


int bl20]; 
static int vector[50]; 


exter int meses [12]; 


VECTOR (1) [| 
AA 


VECTOR (2) 


vector (50) [ 


Un array unidimensional de 50 elementos lla- 
mado «vector». 


Arrays multidimensionales 


Los arrays vistos anteriormente se de- 
nominan arrays unidimensionales o vec- 


OTROS LENGUAJES 


ARRAYS Y PUNTEROS 


tores. Un array cuyos elementos sean 
arrays unidimensionales se llama array 
bidimensional. De manera análoga po- 
dríamos definir un array tridimensional y 
así sucesivamente. Para entender mejor 
este concepto supongamos que defini- 
mos el siguiente array: 


double bL31[3]; 


Este array queda definido como una 
matriz de 3 x 3 elementos en coma flo- 
tante y doble precision. 


Punteros 


Si en la literatura especializada usted 
encuentra en alguna ocasión la palabra 
«pointers», tradúzcala por puntero, pues 
ese es su significado, pero dejando apar- 
te la lingúística, diremos que un puntero 
es un tipo de variable cuyo contenido es 
una dirección de memoria, donde hay 
un dato que nos puede ser de interés en 
un momento dado. 


y Enlace de datos por medio de punteros. 


El operador que nos proporciona un 
puntero a un variable es el operador fé. 


so OTROS LENGUAJES 


Por ejemplo, si «y» es una variable, un 
puntero a dicha variable es y. 

La teoría de punteros puede parecer 
complicada y confusa para los princi- 
piantes en este tipo de variables (algo 
parecido ocurre cuando utilizamos muy 
a menudo la «proscrita» sentencia «go- 
to»), pero siendo ordenados en nues- 
tros planteamientos, se pueden emplear 
para conseguir una mayor claridad y sim- 
plicidad de nuestros programas. 

En C también existen variables punte- 
ro, es decir, no sólo se asigna a una va- 
riable int un entero o a una variable char 
un carácter, también a una variable pun- 
tero se le podrá asignar como valor una 
dirección. 

Por ejemplo: 


punt = 4vect; 


asignará la dirección de vect a punt, o lo 
que es igual, se dice que punt está apun- 
tando a vect. 

El operador indirección * accede a la 
variable apuntada por un determinado 
puntero. 

Veamos cómo debemos declarar en 
un programa los punteros: 

int “pa; 

float *pf; 

En las declaraciones anteriores, la pri- 
mera nos dice que «pa» es un puntero y 
que «pa» es de tipo entero, es decir, el 
valor (pa) apuntado por «pa» es de tipo 
entero. Algo análogo sucede con float 
«pf, excepto que es un puntero a una va- 
riable float. 


+» 


¡O Punteros y funciones 


La utilización de punteros para comu- 
nicación entre funciones permite alterar 
las variables de forma parecida a como 
se modifican los parámetros por «varia- 
ble» del Pascal. 


m Punteros y arrays 


En C existe una estrecha relación entre 
punteros y arrays lo suficientemente fuer- 
te como para que se les trate simultánea- 
mente. Cualquier tratamiento que poda- 
mos hacer con arrays es susceptible de 


poderse hacer con punteros, pero consi- 
guiendo una mayor rapidez con estos úl- 
timos, aunque su comprensión será más 
difícil. 

Supongamos un array llamado «tabla»: 


tabla = = g$gtablal0] 


La igualdad anterior se cumple porque 
tanto «tabla» como 8:tabla(0) representan 
la dirección de memoria del primer ele- 
mento. Ambos términos no podrán cam- 
biar su valor, pero pueden ser asignados 
a una variable «puntero» y podemos mo- 
dificar su valor. 


¡O Arrays y funciones 


Los arrays, al igual que sucede en Pas- 
cal, pueden aparecer como argumentos 
de funciones. Si intentamos pasar el nom- 
bre de un array como argumento de una 
función, lo que realmente estamos pa- 
sando es un puntero, y esta circunstan- 
cia es aprovechada por la función para 
realizar los cambios necesarios en el 
array. 


Operaciones básicas 
' con punteros 


Con punteros podemos realizar tres ope- 
raciones: 


— Asignación: 
Siempre podemos asignar una direc- 
ción a un puntero. 


— Incremento: 

Un puntero puede ser incrementado 
utilizando el operador de incremento. De 
forma similar podemos decrementarlo. 


— Diferencia de punteros: 

Es posible hallar la diferencia de dos 
punteros que apuntan al mismo array 
para averiguar el número de elementos 
que existen entre ellos. 


y EDICIONES vw SIGLO ww CULTURAL vw 


